00100	R SRCCOM↔
00400	βDO DIRECT(2)↔|
00500	R SRCCOM↔
00600	FILSPC.COM←FILSPC.,FILSPC.[S,AIL]↔
00800	βDO DIRECT(3)↔|
00900	R SRCCOM↔
01100	GOGOL.COM←GOGOL.SMI,GOGOL.SMI[S,AIL]↔
01200	βDO DIRECT(4)↔|
01300	R SRCCOM↔
01400	STRSER.COM←STRSER.SMI,STRSER.SMI[S,AIL]↔
01500	IOSER.COM←IOSER.SMI,IOSER.SMI[S,AIL]↔
01600	βDO DIRECT(5)↔|
01700	R SRCCOM↔
01800	NWORLD.COM←NWORLD.,NWORLD.[S,AIL]↔
01900	TAILOR.COM←TAILOR.,TAILOR.[S,AIL]↔
02000	βDO DIRECT(6)↔|
02100	R SRCCOM↔
02200	UP.COM←UP.,UP.[S,AIL]↔
02300	ORDER.COM←ORDER.,ORDER.[S,AIL]↔
02400	βDO DIRECT(7)↔|
02500	R SRCCOM↔
02600	LEPRUN.COM←LEPRUN.,LEPRUN.[S,AIL]↔
02700	MESPRO.COM←MESPRO.,MESPRO.[S,AIL]↔
02800	βDO DIRECT(8)↔|
02900	R SRCCOM↔
03000	WRDGET.COM←WRDGET.,WRDGET.[S,AIL]↔
03100	XPR.COM←XPR.,XPR.[S,AIL]↔
03200	βDO DIRECT(9)↔|
03300	R SRCCOM↔
03400	SAIL.COM←SAIL.IMS,SAIL.IMS[S,AIL]↔
03500	PARSE.COM←PARSE.,PARSE.[S,AIL]↔
03600	βDO DIRECT(10)↔|
03700	R SRCCOM↔
03800	DATA.COM←DATA.,DATA.[S,AIL]↔
03900	ENDDAT.COM←ENDDAT.,ENDDAT.[S,AIL]↔
04000	βDO DIRECT(11)↔|
04100	R SRCCOM↔
04200	SYM.COM←SYM.SMI,SYM.SMI[S,AIL]↔
04300	JSYSES.COM←JSYSES.,JSYSES.[S,AIL]↔
04400	βDO DIRECT(12)↔|
04500	R SRCCOM↔
04600	GEN.COM←GEN.SMI,GEN.SMI[S,AIL]↔
04700	ARRAY.COM←ARRAY.SMI,ARRAY.SMI[S,AIL]↔
04800	βDO DIRECT(13)↔|
04900	R SRCCOM↔
05000	EXPRS.COM←EXPRS.SMI,EXPRS.SMI[S,AIL]↔
05100	STATS.COM←STATS.,STATS.[S,AIL]↔
05200	βDO DIRECT(14)↔|
05300	R SRCCOM↔
05400	LEAP.COM←LEAP.,LEAP.[S,AIL]↔
05500	TOTAL.COM←TOTAL.,TOTAL.[S,AIL]↔
05600	βDO DIRECT(15)↔|
05700	R SRCCOM↔
05800	PROCSS.COM←PROCSS.,PROCSS.[S,AIL]↔
05900	COMSER.COM←COMSER.SMI,COMSER.SMI[S,AIL]↔